1 DIMJS(2,2):POKE37139,0:DD=37154:PA=37137:PB=37152:V$=" SECONDS"
2 FORI=0TO2:FORJ=0TO2:READJS(J,I):NEXT:NEXT:FORT=0TO10:READB$(T):NEXT
3 CO=30720:SC=7680:BG=1:BE=7955
4 POKE36879,255:PRINT"[147][156]REVENGE OF CYON[146]":PRINT"SKILL LEVEL (1-6) ?";
5 GETA$:IFA$=""THEN5
6 D=VAL(A$):IFD<1ORD>6THEN4
7 PRINT"[147]":POKE36879,8:A=32:A1=32:A2=32
8 FORI=0TO220:POKE38796+I,5:NEXT:POKE38775,2:FORP=1TO20:POKE38778+P,5:NEXT:POKE38767,6
9 PRINT""BG:J=0:K=0:VB=0:POKE7708,46:POKE7818,46:POKE7738,46:POKE7727,81:TH=0:S=0
10 POKE8076,78:POKE8077,99:POKE8078,77:POKE8101,77:POKE8102,100:POKE8103,78
11 POKE8104,99:POKE8083,78:POKE8084,99:POKE8063,78:POKE8064,77:POKE8086,103:POKE8109,77
12 POKE8110,79:POKE8089,79:POKE8068,78:POKE8069,99:POKE8070,77:POKE8093,80:POKE8132,77
13 POKE8133,100:POKE8134,100:POKE8135,100:POKE8136,100:POKE8137,78:POKE8115,103
14 POKE8094,78:POKE8073,78:POKE8074,77:POKE8075,78:POKE8112,108:POKE8113,123
15 POKE8152,32:POKE8055,88:POKE8047,93:POKE7782,46:POKE7901,46:POKE7691,46:POKE8025,87
16 POKE38745,4
17 POKE36878,15:FORL=1TO5:FORM=180TO235STEP2:POKE36876,M:FORN=1TO10:NEXT
18 NEXT:POKE36876,0:FORM=1TO50:NEXT:NEXT:POKE36878,0:PRINT"   "
19 FORN=1TO2:POKE8115-N,46:FORQ=1TO120:NEXT:POKE8115-N,32:NEXT:LK=0:TI$="000000"
20 POKEBE+VB,A
21 POKEDD,127:S3=-((PEEK(PB)AND128)=0):POKEDD,255
22 P=PEEK(PA):S1=-((PAND8)=0):S2=((PAND16)=0):S0=((PAND4)=0)
23 FR=-((PAND32)=0):X=S2+S3:Y=S0+S1:IFLK>8164THEN60
24 C=C+1:IFFR=1THENTH=TH+1
25 POKELK+PO+CO,D1:IFA1<>43THENPOKELK+PO,A1
26 IFBG>6ANDJ<>1THENPOKELK+PO+30726,D2:IFA2<>43THENPOKELK+PO+6,A2
27 IFK<>1THENLK=INT(RND(1)*150)+SC
28 POKE8025,81:POKE36878,0:IFFR=1ANDTH<=7THENGOSUB46
29 K=1:PO=INT(RND(1)*D)+1:IFTH>7THENFR=0
30 POKE36878,0:VB=VB+JS(X+1,Y+1)+(VB>220)*22-(VB<-264)*22
31 A=PEEK(BE+VB):POKEBE+VB,43:IFC=2THENLK=LK+22:C=0
32 A1=PEEK(LK+PO):D1=PEEK(LK+PO+CO)
33 IFBG>6ANDJ<>1THENA2=PEEK(LK+PO+6):D2=PEEK(LK+PO+30726)
34 IFS<>1THENPOKELK+PO+CO,7:POKELK+PO,90
35 A$="SHOTS":IFTH=1THENA$="SHOT "
36 PRINT"";:XC=BE+VB:IFXC=LK+POANDFR=1THENPRINTTH;A$:PRINTRIGHT$(TI$,2)V$:GOTO49
37 IFBG>6ANDJ<>1THENPOKELK+PO+30726,7:POKELK+PO+6,90
38 IFBG>6ANDJ<>1ANDXC=LK+PO+6ANDFR=1THENPRINTTH;A$:PRINTRIGHT$(TI$,2)V$:GOSUB41
39 POKE8025,87:IFJ=1ANDS=1THENBG=BG+1:GOTO47
40 POKESC+QW,32:QW=INT(RND(1)*176)+44:POKESC+QW,46:GOTO20
41 POKE36878,15:FORW=1TO6:FORY=220TO254:POKE36876,Y:NEXT:NEXT:POKELK+PO+CO+6,1
42 POKELK+PO+6,43
43 FORZ=22TOLK-SCSTEP22:G=PEEK(LK+PO-Z+6):G1=PEEK(LK+PO-Z+CO+6):POKELK+PO-Z+CO+6,7
44 POKELK+PO-Z+6,90:FORH=1TO70:NEXT:POKELK+PO-Z+CO+6,G1:POKELK+PO-Z+6,G:NEXT
45 TH=0:J=1:RETURN
46 POKE36878,15:POKE36876,244:FORFV=1TO70:NEXT:POKE36878,0:RETURN
47 IFBG<=11THEN7
48 GOTO76
49 IFBG>6ANDJ<>1THENPOKELK+PO+CO+6,7:POKELK+PO+6,90
50 S=1:POKE36878,15:FORL=1TO15:FORM=250TO240STEP-1:POKE36876,M:NEXT
51 FORM=240TO250:POKE36876,M:NEXT:POKE36876,0:NEXT:POKE36878,0:POKELK+PO+CO,1:TH=0
52 POKELK+PO,43
53 FORZ=22TOLK-SCSTEP22:G=PEEK(LK+PO-Z):G1=PEEK(LK+PO-Z+CO):POKELK+PO-Z+CO,7
54 POKELK+PO-Z,90:FORH=1TO70:NEXT:POKELK+PO-Z+CO,G1:POKELK+PO-Z,G:NEXT
55 POKE36876,0
56 IFBG<7THENBG=BG+1:GOTO7
57 IFJ=1ANDS=1THENBG=BG+1:IFBG<12THEN7
58 IFJ=1ANDS=1ANDBG=12THEN76
59 GOTO37
60 JH=JH+1:IFJH<3THEN7
61 POKE36876,0:POKE36877,220:FORL=15TO0STEP-1:POKE36878,L:FORZN=1TO50
62 POKE36879,ZN:NEXT:NEXT:POKE36877,0:POKE36878,0
63 PRINT"[147]":FORZN=8TO255:POKE36879,ZN:NEXT
64 PRINT"YOU SURVIVED"BG-1:PRINT"ATTACK WAVES.":GOSUB69
65 PRINT"PLAY AGAIN?(Y,N)[146]"
66 GETA$:IFA$=""THEN66
67 IFA$="Y"THENRUN
68 END
69 PRINT"YOUR RANK IS:":PRINT""B$(BG-1)".":RETURN
70 DATA-23,-22,-21,-1,0,1,21,22,23
71 DATA"PRIVATE","CORPORAL","[159]SERGEANT"
72 DATA"[156]SECOND LIEUTENANT ","[144]FIRST LIEUTENANT"
73 DATA"CAPTAIN","[144]MAJOR","[156]COLONEL"
74 DATA"[156]GENERAL","[144]FIELD MARSHALL"
75 DATA"MR. PRESIDENT"
76 PRINT"[147]YOU HAVE SAVED EARTH  FROM THE ALIEN ATTACK!":GOTO65